home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / bash-1.12 / dist / examples / functions / ksh-compat < prev    next >
Encoding:
Text File  |  1991-12-31  |  2.6 KB  |  149 lines
  1. #
  2. # ksh-compat -- functions and aliases to provide the beginnings of a ksh 
  3. #            environment for bash.
  4. #
  5. # Chet Ramey
  6. # chet@ins.CWRU.Edu
  7. #
  8. #
  9. # These are definitions for the ksh compiled-in `exported aliases'.  There
  10. # are others, but we already have substitutes for them: "history", "type",
  11. # and "hash".
  12. #
  13. alias r="fc -e -"
  14. alias functions="typeset -f"
  15. alias integer="typeset -i"
  16. alias nohup="nohup "
  17. alias true=":"
  18. alias false="let 0"
  19.  
  20. #
  21. # An almost-ksh compatible `whence' command.  This is as hairy as it is 
  22. # because of the desire to exactly mimic ksh (whose behavior was determined
  23. # empirically).
  24. # 
  25. # This depends somewhat on knowing the format of the output of the bash
  26. # `builtin type' command.
  27. #
  28.  
  29. whence ()
  30. {
  31.   local vflag
  32.   local path
  33.  
  34.   vflag=
  35.   path=
  36.  
  37.   if [ "$#" = "0" ]; then
  38.     echo "whence: argument expected"
  39.     return 1
  40.   fi
  41.  
  42.   case "$1" in
  43.     -v) vflag=1
  44.       shift 1
  45.       ;;
  46.     -*) echo "whence: bad option: $1"
  47.       return 1
  48.       ;;
  49.     *) ;;
  50.   esac
  51.  
  52.   if [ "$#" = "0" ]; then
  53.     echo "whence: bad argument count"
  54.     return 1
  55.   fi
  56.  
  57.   for cmd; do
  58.     if [ "$vflag" ]; then
  59.       echo $(builtin type $cmd | sed 1q)
  60.     else
  61.       path=$(builtin type -path $cmd)
  62.  
  63.       if [ "$path" ]; then
  64.         echo $path
  65.       else
  66.         case "$cmd" in
  67.           /*) echo ""
  68.             ;;
  69.           *)
  70.             case "$(builtin type -type $cmd)" in
  71.               "") echo ""
  72.                 ;;
  73.               *) echo "$cmd"
  74.                 ;;
  75.             esac
  76.           ;;
  77.         esac
  78.       fi
  79.     fi
  80.   done
  81.   return 0
  82. }
  83.  
  84. #
  85. # For real ksh homeboy fanatics, redefine the `type' builtin with a ksh
  86. # version.
  87. #
  88. #type()
  89. #{
  90. #    whence -v "$*"
  91. #}
  92.  
  93. cd ()
  94. {
  95.   case $# in
  96.     0) builtin cd "$HOME" ;;
  97.     1) builtin cd "$@" ;;
  98.     2) old="$1"
  99.        new="$2"
  100.        dir=$(echo "$PWD" | sed "s:$old:$new:g")
  101.  
  102.        case "$dir" in
  103.          "$PWD") echo "bash: cd: bad substitution" >&2 ;;
  104.          *)      echo "$dir"
  105.                  builtin cd "$dir"
  106.            ;;
  107.        esac
  108.       ;;
  109.     *) echo "cd: wrong arg count" >&2 ;;
  110.   esac
  111. }
  112.  
  113. #
  114. # ksh print emulation
  115. #
  116. #    print [-Rnprsu[n]] [arg ...]
  117. #
  118. #    -    end of options
  119. #    -R    BSD-style -- only accept -n, no escapes
  120. #    -n    do not add trailing newline
  121. #    -p    no-op (no coprocesses)
  122. #    -r    no escapes
  123. #    -s    no-op (print to the history file)
  124. #    -u n    redirect output to fd n
  125. #
  126.  
  127. print()
  128. {
  129.   local eflag=-e
  130.   local nflag=
  131.   local fd=1
  132.  
  133.   OPTIND=1
  134.  
  135.   while getopts "Rnprsu:" c; do
  136.     case $c in
  137.       R|r) eflag= ;;
  138.       n)   nflag=-n ;;
  139.       u)   redir=">&$OPTARG"
  140.            fd=$OPTARG
  141.         ;;
  142.       p|s) ;;
  143.     esac
  144.   done
  145.  
  146.   shift $[ $OPTIND - 1 ]
  147.   echo $eflag $nflag "$@" >&$fd
  148. }
  149.